home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE User Agent.xpl < prev    next >
Text File  |  2001-10-27  |  3KB  |  74 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Internet Explorer\System"
  5. "NAME"="User Agent"
  6. "VERSION"="1.01"
  7. "LANGUAGE"="VBScript"
  8. "WARNING"="1"
  9. "TEXT 1"="User Agent"
  10. "DESCRIPTION 1"="When connecting to a site, every Browser send a so called "User Agent" string which helps the websites to distinguish the different browser types and (for example) load a optiomized page for that browser."
  11. "DESCRIPTION 2"="On the other hand, this can also be a problem if a site simply blocks any user that is using Internet Explorer."
  12. "DESCRIPTION 3"="Because of this, you can enter any "User Agent" string you wish to have, visit the website in question and later restore the original string again. You can also add your own custom variables at the end of the string (before the closing bracket), separating them from the existing variables using a semi-colon. For example a Windows 98 user with IE6 could try "Mozilla/4.0 (compatible; MSIE 6.0; Win32; I love X-Setup!)""
  13. "DESCRIPTION 4"="To restore the original setting, simply clear the field."
  14. "DESCRIPTION 5"="NOTE: The "User Agent" string should be no longer than 200 characters, and you will need to log off before the changes will take effect."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com/"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="Thanks to hydreux@yahoo.com for this tweak!"
  19.  
  20.     sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
  21.  
  22.    sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent"
  23. sV1bak="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent (BAK XQXSET)"
  24. Sub Plugin_Initialize  
  25.  if RegPathExists(sP) then 
  26.     Call ReadSetting()
  27.  else
  28.     Call Disable()
  29.  end if
  30. End Sub
  31.  
  32. Sub Plugin_CheckData(ElementIndex)
  33. End Sub
  34.  
  35. Sub ReadSetting
  36.  s=RegReadValue(sV1)
  37.  SetUIElement 1,s
  38. End Sub
  39.  
  40. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  s=GetUIElement(1)
  42.  
  43.  if len(s)=0 then
  44.     'restore original    
  45.     sBak=RegReadValue(sV1bak)
  46.     if len(sBak)=0 then
  47.        Call MsgError("Unable to restore the original value - it was not found in the registry! Please use Control Panel -> Add/Remove Programs -> Internet Explorer -> Repair Installation option")
  48.     else
  49.        Call RegWriteValue(sV1,sBak,1)
  50.        Call RegDeleteValue(sV1bak) 
  51.        Call ReadSetting
  52.     end if
  53.  else
  54.     'apply new one
  55.     
  56.     'do we already have an backup? if so, do NOT save the new value
  57.     if RegValueExists(sV1bak)=true then
  58.        'do nothing
  59.     else
  60.        'save value
  61.        sOrg=RegReadValue(sV1)
  62.        Call RegWriteValue(sV1bak,sOrg,1)
  63.     end if
  64.   
  65.     'apply new value
  66.     Call RegWriteValue(sV1,s,1)
  67.  end if
  68.  
  69.  Call Logoff()
  70. End Sub
  71.  
  72. Sub Plugin_Terminate 
  73. End Sub
  74.